home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / DOCZ16.ZIP;1 / DOCZ.LIF / UPCASE.FOR < prev    next >
Encoding:
Text File  |  1994-04-24  |  916 b   |  34 lines
  1. C ***************************************************************************
  2. C .MODULE              UPCASE
  3. C .LIBRARY              testlib
  4. C .TYPE                  function
  5. C .SYSTEM              vms
  6. C .AUTHOR              Software Toolz
  7. C .LANGUAGE           FORTRAN
  8. C .APPLICATION       string
  9. C .DESCRIPTION     
  10. C        Convert a string to upper case
  11. C .ARGUMENTS        
  12.         SUBROUTINE UPCASE (STRING)
  13.             CHARACTER*(*)    STRING
  14.             INTEGER*2        STR_LEN
  15. C .NARRATIVE        
  16. C        The UpCase subroutine converts all characters to upper case.  Numerics
  17. C        and upper-case characters are unaffected.
  18. C .RETURNS            
  19. C        nothing
  20. C .ENDOC               END DOCUMENTATION
  21. C ***************************************************************************
  22.  
  23.         SUBROUTINE UPCASE (STRING)
  24.         CHARACTER*(*)    STRING
  25.         INTEGER*2            STR_LEN
  26.  
  27.         DO I = 1, STR_LEN(STRING)
  28.             IF (STRING(I:I).GE.'A' .AND. STRING(I:I).LE.'Z')
  29.       +         STRING(I:I) = CHAR(ICHAR(STRING(I:I)) - 32)
  30.         END DO
  31.         RETURN
  32.         END    
  33.  
  34.